module io_mod

use global_mod,    only: ink, rlk
use mesh_mod,      only: main_mesh
use mesh_dump_mod, only: mesh_dump
use paint_on_mod,  only: painton

implicit none

contains

subroutine Deck_Reader(filename)
  character(len=*) :: filename
  open(11, file=filename)
  write(6,*) "Namelist mesh being read"
  read(11, nml=main_mesh)
  write(6,*) "Namelist mesh_dump being read"
  read(11, nml=mesh_dump)
  write(6,*) "Namelist paint_on being read"
  read(11, nml=painton)
  !write(6, nml=mesh)
  close(11)
end subroutine Deck_Reader


end module io_mod
